home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ver.exe / SA_FUNC.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-05-01  |  959 b   |  38 lines
  1. Option Explicit
  2.  
  3. Sub DragOver (Source As Control, ByVal State As Integer)
  4.     Select Case State
  5.         Case 0:
  6.             Source.DragIcon = Form1.NoDrop.Picture
  7.         Case 1:
  8.             Source.DragIcon = Form1.Drop.Picture
  9.     End Select
  10. End Sub
  11.  
  12. Sub SaveSetup (ByVal Filename As String)
  13.     Dim I As Integer
  14.     Dim J As Integer
  15.  
  16.  
  17.     Open Filename For Output Access Write As #1
  18.  
  19.     Print #1, "AppName " & Form1.AppName.Text
  20.     Print #1, "Drive " & Form1.Drive1.Drive
  21.     Print #1, "Dir " & Form1.Dir1.Path
  22.  
  23.     For I = 0 To 2
  24.         For J = 0 To Form1.IList(I).ListCount - 1
  25.             If I = 0 Then
  26.                 Print #1, "AppDir " & Form1.IList(I).List(J)
  27.             ElseIf I = 1 Then
  28.                 Print #1, "WinDir " & Form1.IList(I).List(J)
  29.             ElseIf I = 2 Then
  30.                 Print #1, "SysDir " & Form1.IList(I).List(J)
  31.             End If
  32.         Next J
  33.     Next I
  34.  
  35.     Close #1
  36. End Sub
  37.  
  38.